home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1997 / HAM Radio 1997.iso / vcls / date / tcom / genprot.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-04-08  |  1.5 KB  |  57 lines
  1. {$G+,X+}
  2.  
  3. {Conditional defines that may affect this unit}
  4. {$I AWDEFINE.INC}
  5.  
  6. {*********************************************************}
  7. {*                   GENPROT.PAS 1.01                    *}
  8. {*        Copyright (c) TurboPower Software 1995         *}
  9. {*                 All rights reserved.                  *}
  10. {*********************************************************}
  11.  
  12. unit Genprot;
  13.  
  14. interface
  15.  
  16. uses
  17.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  18.   Forms, Dialogs, StdCtrls, ExtCtrls, Buttons, AdMisc, AdProtcl, TComIni;
  19.  
  20. type
  21.   TGeneralProtocolOptionsForm = class(TForm)
  22.     NamingConflictGroup: TRadioGroup;
  23.     GroupBox1: TGroupBox;
  24.     SavePartialsBox: TCheckBox;
  25.     RTSWhenWritingBox: TCheckBox;
  26.     BitBtn1: TBitBtn;
  27.     CancelBtn: TBitBtn;
  28.     HelpBtn: TBitBtn;
  29.     procedure BitBtn1Click(Sender: TObject);
  30.  
  31.   public
  32.     constructor Create(AOwner : TComponent); override;
  33.   end;
  34.  
  35. implementation
  36.  
  37. {$R *.DFM}
  38.  
  39.   constructor TGeneralProtocolOptionsForm.Create(AOwner : TComponent);
  40.   begin
  41.     inherited Create(AOwner);
  42.  
  43.     NamingConflictGroup.ItemIndex := Ord(WriteOpt) - 1;
  44.     SavePartialsBox.Checked       := SavePartials;
  45.     RTSWhenWritingBox.Checked     := RTSWrite;
  46.   end;
  47.  
  48. procedure TGeneralProtocolOptionsForm.BitBtn1Click(Sender: TObject);
  49. begin
  50.   WriteOpt     := TWriteFailAction(NamingConflictGroup.ItemIndex + 1);
  51.   SavePartials := SavePartialsBox.Checked;
  52.   RTSWrite     := RTSWhenWritingBox.Checked;
  53. end;
  54.  
  55. end.
  56.  
  57.